home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / DMTDEMOS / GETDRVS.DEM < prev    next >
Text File  |  1994-07-02  |  460b  |  27 lines

  1. program GetDrvsSample;
  2.  
  3.  uses crt, DMT;
  4.  
  5.  var
  6.    LogDrvs   : ListOfDrvs;  { The ListOfDrvs data type is defined in the DMT unit }
  7.  
  8.    Index,
  9.    DrvsCount : byte;
  10.  
  11.    DrvLetter : char;
  12.  
  13. begin
  14.   Color( 7, 0 );
  15.   clrscr;
  16.  
  17.   GetDrvs( LogDrvs, DrvsCount );   { Call GetDrvs procedure }
  18.  
  19.   write( 'Available logical drives -> [ ' );
  20.  
  21.   for Index := 1 to DrvsCount do
  22.     write( LogDrvs[ Index ], ': ' );
  23.  
  24.   writeln( ']' );
  25.  
  26.   GetEnter;
  27. end.